#!/usr/bin/perl -w
# Task B (2 points)
# Write a program that defines an array containing the sequences of four fictive genes. 
# The program should then determine the length 
# of the second sequence and give it as output to the user
#
@genes = ("AACCTGTAC","CCGTAGT","TAGCATCGAT","ACTATCCCTAGAGGA");
print 'The length of the second sequence is:';
print length($genes[1]);
